Option Explicit
Sub E_Sample015()
   'ո E_Data01u@
    Dim mySht  As Worksheet
    Dim myAflt As AutoFilter
    Dim myRng  As Range
    Set mySht = ActiveSheet
    Set myAflt = mySht.AutoFilter
    If Not myAflt Is Nothing Then
        myAflt.Range.AutoFilter
    End If
    Set myRng = Nothing					'
    Set myAflt = Nothing
    Set mySht = Nothing
End Sub
